home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / os2 / af0_23b.zip / afinst.cmd < prev    next >
OS/2 REXX Batch file  |  1996-08-09  |  3KB  |  95 lines
  1. /**/
  2. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. Call SysCls
  6.  
  7. Say
  8. Say "         AF - The Archive Folder - Installation program"
  9. Say "         =============================================="
  10. Say
  11. Say "  This script will create a program object and create associations"
  12. Say "  and templates for the Archive Folder."
  13. Say "  The script has to be run from the directory where Archive Folder"
  14. Say "  is installed."
  15. Say
  16. Call charout, "  Do you want to continue? (y/N): "
  17.  
  18. answer = SysGetKey(echo)
  19.  
  20.  
  21. if answer <> "Y" then return
  22.  
  23. InstallDir = Directory()
  24. EAT_ASCII = REVERSE('FFFD'X)
  25.  
  26. TypeText = 'Archive'
  27. Type     = EAT_ASCII || d2c(length(TypeText)) || '00'x || TypeText
  28. Name     = "Archive Templates"
  29. LongName = EAT_ASCII || d2c(length(Name)) || '00'x || Name
  30.  
  31. if SysFileTree("TEMPLATE", dir, D) <> 0 then do
  32.   Say "Not enough memory!"
  33.   return
  34. end
  35.  
  36. if dir.0 = 0 then do
  37.   rc = SysCreateObject( "WPFolder", "TEMPLATE", InstallDir,"OBJECTID=<AF_TEMPS>;","r")
  38.   if \rc then do
  39.     Say "Error creating template folder!"
  40.     return
  41.   end
  42. end
  43.  
  44. if SysPutEA( "TEMPLATE", ".LONGNAME", LongName ) <> 0 then
  45.   Say "Error setting .LONGNAME Extended Attribute!"
  46.  
  47. if \ SysCreateObject( "WPShadow", "Archive templates", "<WP_DESKTOP>", "SHADOWID=<AF_TEMPS>;OBJECTID=<AF_TEMPS_SHADOW>;","r" ) then
  48.   Say "Error creating shadow of template folder on the desktop!"
  49.  
  50. Call SysOpenObject "<AF_TEMPS_SHADOW>", 1, 1
  51.  
  52. rc = SysCreateObject( "WPDataFile", "Archive.Arj", "<AF_TEMPS>","TEMPLATE=YES;TYPE=Archive;OBJECTID=<AF_ARJ_TEMPLATE>;","r")
  53. if \rc then Say "Error creating ARJ template!"
  54. else
  55.   if SysPutEA( "TEMPLATE\archive.arj", ".TYPE", Type ) <> 0 then
  56.     say "Error putting .TYPE EA"
  57.  
  58. rc = SysCreateObject( "WPDataFile", "Archive.Zip", "<AF_TEMPS>","TEMPLATE=YES;TYPE=Archive;OBJECTID=<AF_ZIP_TEMPLATE>;","r")
  59. if \rc then Say "Error creating ZIP template! It may already exist."
  60. else
  61.   if SysPutEA( "TEMPLATE\archive.Zip", ".TYPE", Type ) <> 0 then
  62.     say "Error putting .TYPE EA"
  63.  
  64. rc = SysCreateObject( "WPDataFile", "Archive.Arc", "<AF_TEMPS>","TEMPLATE=YES;TYPE=Archive;OBJECTID=<AF_ARC_TEMPLATE>;","r")
  65. if \rc then Say "Error creating ARC template! It may already exist."
  66. else
  67.   if SysPutEA( "TEMPLATE\archive.arc", ".TYPE", Type ) <> 0 then
  68.     say "Error putting .TYPE EA"
  69.  
  70. rc = SysCreateObject( "WPDataFile", "Archive.Lzh", "<AF_TEMPS>","TEMPLATE=YES;TYPE=Archive;OBJECTID=<AF_LZH_TEMPLATE>;","r")
  71. if \rc then Say "Error creating LZH template! It may already exist."
  72. else
  73.   if SysPutEA( "TEMPLATE\archive.lzh", ".TYPE", Type ) <> 0 then
  74.     say "Error putting .TYPE EA"
  75.  
  76. rc = SysCreateObject( "WPDataFile", "Archive.Rar", "<AF_TEMPS>","TEMPLATE=YES;TYPE=Archive;OBJECTID=<AF_RAR_TEMPLATE>;","r")
  77. if \rc then Say "Error creating RAR template! It may already exist."
  78. else
  79.   if SysPutEA( "TEMPLATE\archive.rar", ".TYPE", Type ) <> 0 then
  80.     say "Error putting .TYPE EA"
  81.  
  82. rc = SysCreateObject( "WPProgram", "Archive Folder", "<WP_DESKTOP>","PROGTYPE=PM;EXENAME="InstallDir"\AF.EXE;STARTUPDIR="Installdir";ASSOCTYPE=Archive;ASSOCFILTER=*.lzh,*.zip,*.arc,*.arj,*.rar;OBJECTID=<AF>;","r")
  83. if \rc then do
  84.   Say "Error creating program object!"
  85.   return
  86. end
  87.  
  88. Say "  Archive Folder successfully installed!"
  89. Say
  90. Say "  Now copy the ARCHIVER.BB2 file to a directory in your PATH or DPATH."
  91. Say
  92. '@pause'
  93.  
  94.  
  95.